home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / examples / exdiale0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  4.3 KB  |  158 lines
  1. unit Exdiale0;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, AdDial, AdModem, AdPort, StdCtrls, Buttons;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ListBox1: TListBox;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Edit1: TEdit;
  15.     BitBtn1: TBitBtn;
  16.     ApdComPort1: TApdComPort;
  17.     ApdModem1: TApdModem;
  18.     ApdModemDialer1: TApdModemDialer;
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure ApdModemDialer1Busy(Sender: TObject);
  21.     procedure ApdModemDialer1Connect(Sender: TObject);
  22.     procedure ApdModemDialer1ConnectionEstablished(Sender: TObject);
  23.     procedure ApdModemDialer1CycleDial(Sender: TObject);
  24.     procedure ApdModemDialer1DialCount(M: TObject; Remaining: Word);
  25.     procedure ApdModemDialer1DialStart(Sender: TObject);
  26.     procedure ApdModemDialer1Error(Sender: TObject);
  27.     procedure ApdModemDialer1GotLineSpeed(M: TObject; Speed: Longint);
  28.     procedure ApdModemDialer1NoCarrier(Sender: TObject);
  29.     procedure ApdModemDialer1NoDialTone(Sender: TObject);
  30.     procedure ApdModemDialer1RetryCount(M: TObject; Remaining: Word);
  31.     procedure ApdModemDialer1RetryEnd(Sender: TObject);
  32.     procedure ApdModemDialer1RetryStart(Sender: TObject);
  33.     procedure ApdModemDialer1TooManyTries(Sender: TObject);
  34.     procedure ApdModemDialer1Voice(Sender: TObject);
  35.     procedure BitBtn1Click(Sender: TObject);
  36.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.     procedure AddStatusLine(const Msg : String);
  42.   end;
  43.  
  44. var
  45.   Form1: TForm1;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TForm1.AddStatusLine(const Msg : String);
  52. begin
  53.   Listbox1.Items.Add(Msg);
  54.   Listbox1.ItemIndex := Pred(Listbox1.Items.Count);
  55. end;
  56.  
  57. procedure TForm1.FormCreate(Sender: TObject);
  58. begin
  59.   ApdComPort1.Open  := True;
  60.   ApdModem1.Started := True;
  61. end;
  62.  
  63. procedure TForm1.ApdModemDialer1Busy(Sender: TObject);
  64. begin
  65.   AddStatusLine('Remote is busy');
  66. end;
  67.  
  68. procedure TForm1.ApdModemDialer1Connect(Sender: TObject);
  69. begin
  70.   AddStatusLine('Modem connected!');
  71. end;
  72.  
  73. procedure TForm1.ApdModemDialer1ConnectionEstablished(Sender: TObject);
  74. begin
  75.   AddStatusLine('Connection established!');
  76. end;
  77.  
  78. procedure TForm1.ApdModemDialer1CycleDial(Sender: TObject);
  79. begin
  80.   if ApdModemDialer1.Retrying then
  81.     AddStatusLine('Cancelling retry...')
  82.   else
  83.     AddStatusLine('Cycling dial attempt...');
  84. end;
  85.  
  86. procedure TForm1.ApdModemDialer1DialCount(M: TObject; Remaining: Word);
  87. begin
  88.   AddStatusLine('Dialing. ' + IntToStr(Remaining) + ' seconds to go');
  89. end;
  90.  
  91. procedure TForm1.ApdModemDialer1DialStart(Sender: TObject);
  92. begin
  93.   AddStatusLine('Starting a new dial attempt');
  94. end;
  95.  
  96. procedure TForm1.ApdModemDialer1Error(Sender: TObject);
  97. begin
  98.   AddStatusLine('Modem returned ERROR result');
  99. end;
  100.  
  101. procedure TForm1.ApdModemDialer1GotLineSpeed(M: TObject; Speed: Longint);
  102. begin
  103.   AddStatusLine('Connected at ' + IntToStr(Speed) + ' baud');
  104. end;
  105.  
  106. procedure TForm1.ApdModemDialer1NoCarrier(Sender: TObject);
  107. begin
  108.   AddStatusLine('Modem returned NO CARRIER');
  109. end;
  110.  
  111. procedure TForm1.ApdModemDialer1NoDialTone(Sender: TObject);
  112. begin
  113.   AddStatusLine('Modem returned NO DIALTONE');
  114. end;
  115.  
  116. procedure TForm1.ApdModemDialer1RetryCount(M: TObject; Remaining: Word);
  117. begin
  118.   AddStatusLine(IntToStr(Remaining) + ' seconds before new dial attempt');
  119. end;
  120.  
  121. procedure TForm1.ApdModemDialer1RetryEnd(Sender: TObject);
  122. begin
  123.   AddStatusLine('Retry finished.  Will attempt to dial again.');
  124. end;
  125.  
  126. procedure TForm1.ApdModemDialer1RetryStart(Sender: TObject);
  127. begin
  128.   AddStatusLine('Dial failed.  Will wait before retrying...');
  129. end;
  130.  
  131. procedure TForm1.ApdModemDialer1TooManyTries(Sender: TObject);
  132. begin
  133.   AddStatusLine('Too many failed dial attempts. Giving up.');
  134. end;
  135.  
  136. procedure TForm1.ApdModemDialer1Voice(Sender: TObject);
  137. begin
  138.   AddStatusLine('Remote answered with voice');
  139. end;
  140.  
  141. procedure TForm1.BitBtn1Click(Sender: TObject);
  142. begin
  143.   if (Edit1.Text <> '') then begin
  144.     ApdModemDialer1.PhoneNumber := Edit1.Text;
  145.     ApdModemDialer1.Dial;
  146.   end;
  147. end;
  148.  
  149. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  150. begin
  151.   if ApdModemDialer1.Dialing then begin
  152.     ApdModemDialer1.Abort;
  153.     CanClose := True;
  154.   end;
  155. end;
  156. end.
  157.  
  158.